home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / ileave.arc / SELECT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-07  |  3.2 KB  |  129 lines
  1. /************************************************************************
  2. /    getbar()
  3. /    
  4. /    This routine displays a list of options in a line-by-line format
  5. /    and allows the user to select one of the options by pressing the
  6. /    space key (and some others optionally).  This routine has the
  7. /    same appearance of the Zenith SETUP command in ROM, and some other
  8. /    software too. The options are:
  9. /
  10. /    HOME key:    move to top selection
  11. /
  12. /    END key:    move to last selection
  13. /
  14. /    BACKSPACE key
  15. /    UP cursor
  16. /    BACKTAB keys:    move to selection above (circular)
  17. /
  18. /    SPACE
  19. /    DOWN cursor
  20. /    TAB keys:    move to selection below (circular)
  21. /
  22. /    ENTER key:    accept current selection highlighted
  23. /
  24. /    other keys:    beeps, and waits
  25. /
  26. /    INPUT from caller:
  27. /    The current cursor location will be used. When the routine
  28. /    returns, the cursor will be in the same column, but under
  29. /    the last prompt.  This routine needs to be passed a
  30. /    pointer to an array of strings, and an indication of which
  31. /    is the default.  The last+1 element must be *NULL, and no
  32. /    maxcount need be supplied.
  33. /
  34. /    OUTPUT:
  35. /    besides screen display, etc., routine returns 0-based response
  36. /    to selection (the array element selected)
  37. /
  38. /    GLOBAL VARIABLES ALTERED:
  39. /    none
  40. ***********************************************************************/
  41.  
  42. #include <stdio.h>
  43. #include <hamdefs.h>
  44. #include <stdlib.h>
  45.  
  46. #define SPECIAL (NORMAL|HILITE)
  47.  
  48. int    getbar(choices, deflt)
  49. char    *choices[];
  50. int    deflt;
  51. {
  52.     int    i, count, r, c, keystroke, longest, length;
  53.     int    *attrib;
  54.  
  55.     for (longest = count = 0; choices[count] != NULL; ++count) {
  56.         if ((length = strlen(choices[count])) > longest)
  57.             longest = length;
  58.     }
  59.  
  60.     findcsr(&r, &c);
  61.  
  62.     attrib = (int *)calloc(count, sizeof(int));
  63.  
  64.     for (i = 0; i < count; i++)
  65.         attrib[i] = NORMAL;
  66.  
  67.     attrib[deflt] = SPECIAL;
  68.  
  69.     clrblk(r - 1, c - 1, r + count, c + longest);
  70.  
  71.     for (i = 0; i < count; i++)
  72.         atputsa(r + i, c, choices[i], attrib[i]);
  73.  
  74.     scrbox(r - 1, c - 1, r + count, c + longest, 1, NORMAL);
  75.  
  76.     locate(r + count, c);
  77.     while ((keystroke = inkeyi()) != CR) {
  78.         switch (keystroke) {
  79.         case HOME:
  80.             attrib[deflt] = NORMAL;
  81.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  82.             deflt = 0;
  83.             attrib[deflt] = SPECIAL;
  84.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  85.             break;
  86.         case END:
  87.             attrib[deflt] = NORMAL;
  88.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  89.             deflt = count - 1;
  90.             attrib[deflt] = SPECIAL;
  91.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  92.             break;
  93.         case BS:
  94.         case UP:
  95.         case BACKTAB:
  96.             attrib[deflt] = NORMAL;
  97.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  98.             if (deflt == 0)
  99.                 deflt = count - 1;
  100.             else
  101.                 --deflt;
  102.             attrib[deflt] = SPECIAL;
  103.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  104.             break;
  105.         case ' ':
  106.         case DOWN:
  107.         case '\t':
  108.             attrib[deflt] = NORMAL;
  109.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  110.             if (deflt == (count - 1))
  111.                 deflt = 0;
  112.             else
  113.                 ++deflt;
  114.             attrib[deflt] = SPECIAL;
  115.             atputsa(r + deflt, c, choices[deflt], attrib[deflt]);
  116.             break;
  117.  
  118.         default:    
  119.             beep();
  120.             break;
  121.         }
  122.         locate(r + count, c);
  123.     }
  124.     free(attrib);
  125.     return deflt;
  126. }
  127.  
  128.  
  129.